home *** CD-ROM | disk | FTP | other *** search
/ Windows 6-Pak - Disc 4 / Windows 6-Pak (InfoMagic) (Disc 4) (1999).ISO / Text-Chat-Scripts / pp-320m.exe / pp300 / a-confg2.mrc < prev    next >
Encoding:
Text File  |  1998-08-15  |  27.4 KB  |  681 lines
  1. ; -----------------------------------------------------
  2. ; Peace and Protection (by misspai)
  3. ; -----------------------------------------------------
  4. ; Configurations (part 2)
  5. ; -----------------------------------------------------
  6. ; Color scheme editor
  7. ; -----------------------------------------------------
  8. _sample {
  9.   window -c @Sample
  10.   window @Sample $_winpos(0%,0%,50%,0%) @Sample %font.basic
  11.   titlebar @Sample output (double-click to refresh)
  12.   set %.numm 1
  13.   set %.filee $_ppdir $+ sample.txt
  14.   if (%+time.stamp) set %.sts [0:00] | else unset %.sts
  15.   :loop | aline -c [ $+ [ %col.base ] ] @Sample $read -l [ $+ [ %.numm ] ] %.filee | if ($_vi(.numm) < 35) goto loop
  16. }
  17. colors {
  18.   window -c @ColorConfig
  19.   window -l $_tabscale(20) @ColorConfig $_winpos(0%,0%,0%,50%) @ColorConfig %font.basic
  20.   aline @ColorConfig (double-click to edit setting)
  21.   aline @ColorConfig (double-click here to load/save color schemes)
  22.   aline @ColorConfig %=
  23.   set %_clr.file $_ppdir $+ configs.ini
  24.   set %.clr.max $readini -n %_clr.file colors num
  25.   set %.clr.num 1
  26.   :loop | _clrline %.clr.num aline | if ($_vi(.clr.num) <= %.clr.max) goto loop
  27.   if ($1 != !) _sample
  28. }
  29. _clrline {
  30.   set %.clr.line $readini -n %_clr.file colors $1
  31.   set %.clr.clr $gettok(%.clr.line,1,32)
  32.   if (%.clr.clr == -) $2 @ColorConfig $3 %=
  33.   else $2 @ColorConfig $3 $gettok(%.clr.line,3-,32) -     $+ % [ $+ [ %.clr.clr ] ] $+ ò $_col2text(% [ $+ [ %.clr.clr ] ] ) ò
  34. }
  35. _clredit {
  36.   if (($1 == 1) || ($1 == 3)) return
  37.   if ($1 == 2) { window -c @ColorConfig | schemes ! | return }
  38.   set %.clr.ini $calc($1 - 3)
  39.   set %.clr.line $readini -n %_clr.file colors %.clr.ini
  40.   set %.clr.clr $gettok(%.clr.line,1,32)
  41.   if (%.clr.clr == -) return
  42.   if ($2 == $null) {
  43.     set %_clr.cmd _clredit $1
  44.     window -c @ColorSelect
  45.     window -l @ColorSelect $_winpos(0%,0%,25%,25%) @ColorSelect
  46.     titlebar @ColorSelect - Pick a color
  47.     set %.clr.num 1
  48.     :loop
  49.     aline @ColorSelect  $+ $_1620(%.clr.num) $_col2text(%.clr.num)
  50.     if ($_vi(.clr.num) < 17) goto loop
  51.     aline @ColorSelect  basic reverse 
  52.     aline @ColorSelect  plain bold
  53.     aline @ColorSelect  plain underline 
  54.     aline @ColorSelect  plain bold underline 
  55.     aline @ColorSelect  no special coloring
  56.     aline @ColorSelect 8,2 colored background 
  57.     set %_clr.prev 100
  58.     sline @ColorSelect 1
  59.     return
  60.   }
  61.   set %.clr.new $remove($2,)
  62.   window -c @ColorSelect
  63.   if (%.clr.clr == col.base) { set %.clr.new $gettok($remove($remove($remove($remove(%.clr.new,),),),),1,44) | if (%.clr.new == $null) set %.clr.new $colour(norm) }
  64.   if ((%.clr.clr == col.custom) || (%.clr.clr == col.custdark)) { set %.clr.new $gettok($remove($remove($remove(%.clr.new,),),),1,44) | if (%.clr.new == $null) set %.clr.new $_color(norm) }
  65.   set % [ $+ [ %.clr.clr ] ] %.clr.new
  66.   if (%.clr.clr == col.custom) set %col.cust -c $+ $remove(%.clr.new,)
  67.   if (%.clr.clr == col.custdark) set %col.cdark -c $+ $remove(%.clr.new,)
  68.   set %pp.smod %col.att $+ (modified)
  69.   _clrline %.clr.ini rline $1
  70.   if (fade isin %.clr.clr) _updde
  71. }
  72. _clredit2 {
  73.   set %.cln $sline(@ColorSelect,1).ln
  74.   set %.ctk $gettok($sline(@ColorSelect,1),1,32)
  75.   if (%_clr.prev == 0) {
  76.     window -c @ColorSelect
  77.     window -l @ColorSelect $_winpos(0%,0%,25%,25%) @ColorSelect
  78.     titlebar @ColorSelect - Pick background color
  79.     set %.clr.num 1
  80.     :loop
  81.     aline @ColorSelect %.ctk $+ , $+ $_1620(%.clr.num) $str($chr(160),40) $_col2text(%.clr.num) $str($chr(160),80) 
  82.     if ($_vi(.clr.num) < 17) goto loop
  83.     set %_clr.prev 100
  84.   }
  85.   elseif ((%_clr.prev < 100) || ((%.cln > 16) && (%.cln < 22))) %_clr.cmd %.ctk
  86.   elseif (%.cln == 22) {
  87.     titlebar @ColorSelect - Pick foreground color
  88.     dline @ColorSelect 17-22
  89.     set %_clr.prev 0
  90.   }
  91.   else {
  92.     window -c @ColorSelect
  93.     window -l @ColorSelect $_winpos(0%,0%,25%,25%) @ColorSelect
  94.     titlebar @ColorSelect - Pick attribute
  95.     aline -s @ColorSelect %.ctk no attribute
  96.     aline @ColorSelect %.ctk $+  bold attribute
  97.     aline @ColorSelect %.ctk $+  underline attribute 
  98.     aline @ColorSelect %.ctk $+  bold and underline attributes 
  99.     set %_clr.prev %.cln
  100.   }
  101. }
  102. _1620 if ($1 == 16) return 00 | return $_lpad(2,0,$1)
  103. schemes {
  104.   set %_clr.file $_ppdir $+ configs.ini
  105.   set %_sch.file $_ppdir $+ styles.ini
  106.   set %_sch.name $readini -n %_sch.file schemen %pp.scheme
  107.   window -c @Schemes
  108.   window -l $_tabscale(13) @Schemes $_winpos(0%,0%,0%,50%) @Schemes %font.basic
  109.   aline @Schemes (double-click to select option or load scheme)
  110.   aline @Schemes %=
  111.   aline @Schemes Current scheme: %_sch.name %pp.smod
  112.   aline @Schemes %=
  113.   aline @Schemes > Edit colors in scheme <
  114.   aline @Schemes > Save changes to current scheme <
  115.   aline @Schemes > Save as a new scheme <
  116.   aline @Schemes > Create "blank" scheme <
  117.   aline @Schemes > Delete schemes <
  118.   aline @Schemes > Create quick scheme <
  119.   aline @Schemes %=
  120.   aline @Schemes > Export P&P scheme file <
  121.   aline @Schemes > Import P&P scheme file <
  122.   aline @Schemes > Send color scheme via CTCP <
  123.   aline @Schemes %=
  124.   set %.sch.num 1 | set %.sch.paren $chr(9) $+ (
  125.   :loopie
  126.   set %.sch.n $readini -n %_sch.file schemen %.sch.num
  127.   if (%.sch.n != $null) { aline @Schemes %col.target $+ %.sch.num $+ > $replace(%.sch.n,$chr(40),%.sch.paren) | inc %.sch.num | goto loopie }
  128.   set %_sch.next %.sch.num
  129.   if ($1 != !) _sample
  130. }
  131. _schsave writeini %_sch.file schemen $1 $2- | writeini %_sch.file schemec $1 $_schsend | set %_sch.name $2- | set %pp.scheme $1
  132. _schload {
  133.   set %pp.scheme $1
  134.   set %_sch.name $readini %_sch.file schemen $1
  135.   set %.clr.send $readini %_sch.file schemec $1
  136.   set %.clr.send $_readprep(%.clr.send)
  137.   set %.clr.max $readini -n %_clr.file colors num
  138.   set %.clr.num 1
  139.   set %.clr.tok 1
  140.   :loop
  141.   set %.clr.line $readini -n %_clr.file colors %.clr.num
  142.   set %.clr.clr $gettok(%.clr.line,1,32)
  143.   if (%.clr.clr != -) { set % [ $+ [ %.clr.clr ] ] $remove($gettok(%.clr.send,%.clr.tok,46),) | inc %.clr.tok }
  144.   if ($_vi(.clr.num) <= %.clr.max) goto loop
  145.   set %col.cust $gettok(%.clr.send,%.clr.tok,46)
  146.   set %col.cdark $gettok(%.clr.send,$_vi(.clr.tok),46)
  147.   return $gettok(%.clr.send,$_i(%.clr.tok),46)
  148. }
  149. _schsend {
  150.   unset %.clr.send
  151.   set %.clr.max $readini -n %_clr.file colors num
  152.   set %.clr.num 1
  153.   :loop
  154.   set %.clr.line $readini -n %_clr.file colors %.clr.num
  155.   set %.clr.clr $gettok(%.clr.line,1,32)
  156.   if (%.clr.clr != -) set %.clr.send %.clr.send $+ % [ $+ [ %.clr.clr ] ] $+ .
  157.   if ($_vi(.clr.num) <= %.clr.max) goto loop
  158.   return %.clr.send $+ %col.cust $+ . $+ %col.cdark $+ . $+ $colour(back)
  159. }
  160. _schdel set %.sliine $sline(@SchemeDelete,1).ln | if (%.sliine < 3) return | _scmsel 9 $calc(%.sliine - 2)
  161. _scmsel {
  162.   if (($1 == 1) || ($1 == 2) || ($1 == 4) || ($1 == 11) || ($1 == 15)) return
  163.   if ($1 == 5) { window -c @Schemes | colors ! | return }
  164.   set %_arhelp _scmsel $1
  165.   if ($1 == 3) {
  166.     if ($2 == $null) _pentry _arhelp $+ $_s2p(%_sch.name) New name for current scheme?
  167.     set %_sch.name $2-
  168.     writeini %_sch.file schemen %pp.scheme $2- 
  169.     rline @Schemes 3 Current scheme: $2- %pp.smod
  170.     rline @Schemes $calc(15 + %pp.scheme) %col.target $+ %pp.scheme $+ > $2-
  171.   }
  172.   elseif ($1 == 6) {
  173.     _schsave %pp.scheme %_sch.name
  174.     unset %pp.smod
  175.     rline @Schemes 3 Current scheme: %_sch.name (changes saved)
  176.   }
  177.   elseif ($1 == 7) {
  178.     if ($2 == $null) _askr _arhelp Name for new scheme?
  179.     _schsave %_sch.next $2-
  180.     unset %pp.smod
  181.     rline @Schemes 3 Current scheme: %_sch.name
  182.     aline @Schemes %col.target $+ %_sch.next $+ > %_sch.name
  183.     inc %_sch.next
  184.   }
  185.   elseif ($1 == 8) {
  186.     if ($2 == $null) _askr _arhelp Name for new scheme?
  187.     set %.clr.max $readini -n %_clr.file colors num
  188.     set %.clr.num 1
  189.     :loopah
  190.     set %.clr.line $readini -n %_clr.file colors %.clr.num
  191.     set %.clr.clr $gettok(%.clr.line,1,32)
  192.     if (%.clr.clr != -) set % [ $+ [ %.clr.clr ] ]
  193.     if ($_vi(.clr.num) <= %.clr.max) goto loopah
  194.     set %col.custom $_color(norm)
  195.     set %col.custdark $_color(norm)
  196.     set %col.cust -c $+ $colour(norm)
  197.     set %col.cdark -c $+ $colour(norm)
  198.     set %col.base $colour(norm)
  199.     _schsave %_sch.next $2-
  200.     unset %pp.smod
  201.     rline @Schemes 3 Current scheme: %_sch.name
  202.     aline @Schemes %col.target $+ %_sch.next $+ > %_sch.name
  203.     inc %_sch.next
  204.     _updde
  205.     if ($_isopen(@Sample)) _sample
  206.   }
  207.   elseif ($1 == 9) {
  208.     if ($2 == $null) {
  209.       window -c @SchemeDelete
  210.       window -l @SchemeDelete $_winpos(0%,0%,25%,25%) @SchemeDelete
  211.       aline @SchemeDelete Double-click on scheme to delete (close when finished)
  212.       aline @SchemeDelete %=
  213.       set %.sch.num 1
  214.       :loopie
  215.       set %.sch.n $readini -n %_sch.file schemen %.sch.num
  216.       if (%.sch.n != $null) { aline @SchemeDelete %col.target $+ %.sch.num $+ > %.sch.n | inc %.sch.num | goto loopie }
  217.       set %_sch.next %.sch.num
  218.       return
  219.     }
  220.     if ($2 == %pp.scheme) _error You cannot delete the current color scheme
  221.     if ($2 == $_j(%_sch.next)) {
  222.       dec %_sch.next
  223.       remini %_sch.file schemen $2
  224.       remini %_sch.file schemec $2
  225.       dline @Schemes $line(@Schemes,0)
  226.       dline @SchemeDelete $line(@SchemeDelete,0)
  227.     }
  228.     else {
  229.       set %.oldnum %pp.scheme
  230.       _schsave %_sch.next %_sch.name
  231.       _schload $_j(%_sch.next)
  232.       _schsave $2 %_sch.name
  233.       set %.thename %_sch.name
  234.       _schload %_sch.next
  235.       set %pp.scheme %.oldnum
  236.       remini %_sch.file schemen %_sch.next
  237.       remini %_sch.file schemec %_sch.next
  238.       dec %_sch.next
  239.       remini %_sch.file schemen %_sch.next
  240.       remini %_sch.file schemec %_sch.next
  241.       rline @Schemes $calc(15 + $2) %col.target $+ $2 $+ > %.thename
  242.       rline @SchemeDelete $calc(2 + $2) %col.target $+ $2 $+ > %.thename
  243.       dline @Schemes $line(@Schemes,0)
  244.       dline @SchemeDelete $line(@SchemeDelete,0)
  245.     }
  246.   }
  247.   elseif ($1 == 10) {
  248.     if ($2 == $null) _askr _arhelp Name for new scheme?
  249.     set %_sch.qname $2-
  250.     unset %_sch.quick
  251.     window -c @ColorSelect
  252.     window -l @ColorSelect $_winpos(0%,0%,25%,25%) @ColorSelect2
  253.     titlebar @ColorSelect - Pick a color
  254.     aline @ColorSelect Select your main event color (color 1 of 4)
  255.     aline @ColorSelect %=
  256.     set %.clr.num 1
  257.     :loop
  258.     aline @ColorSelect  $+ $_1620(%.clr.num) $_col2text(%.clr.num)
  259.     if ($_vi(.clr.num) < 17) goto loop
  260.   }
  261.   elseif ($1 == 12) {
  262.     if ($2 == $null) _askr _arhelp Filename to save scheme to?
  263.     write -c $_wrapfile($2-) P&P color scheme file A - %_sch.name
  264.     set %.clr.max $readini -n %_clr.file colors num
  265.     set %.clr.num 1
  266.     :looper
  267.     set %.clr.line $readini -n %_clr.file colors %.clr.num
  268.     set %.clr.clr $gettok(%.clr.line,1,32)
  269.     if (%.clr.clr != -) { set %.todd % [ $+ [ %.clr.clr ] ] | if (%.todd == $null) write $_wrapfile($2-) x | else write $_wrapfile($2-) $replace($replace($replace($replace(%.todd,,K),,B),,U),,R) }
  270.     if ($_vi(.clr.num) <= %.clr.max) goto looper
  271.     write $_wrapfile($2-) %col.cust %col.cdark $colour(back)
  272.     disps Color scheme " $+ %col.info1 $+ %_sch.name $+ " saved to %col.target $+ $2- | _recfile2 $2-
  273.   }
  274.   elseif ($1 == 13) {
  275.     _timer924off
  276.     set %.clr.got $dir="Scheme file to import?" [ [ $mircdir ] $+ ] *.*
  277.     _timer924on
  278.     if ((%.clr.got == $null) || (* isin %.clr.got)) return
  279.     set %.clr.ver $read -nl1 $_wrapfile(%.clr.got)
  280.     set %.clr.match P&P color scheme file
  281.     if ($gettok(%.clr.ver,1-4,32) != %.clr.match) _error File is not a recognized P&P color scheme file
  282.     if ($gettok(%.clr.ver,5,32) != A) _error File is from a later version of P&P and is not importable
  283.     set %_sch.name $gettok(%.clr.ver,7-,32)
  284.     _schsave %_sch.next %_sch.name
  285.     set %.clr.max $readini -n %_clr.file colors num
  286.     set %.clr.num 1
  287.     set %.clr.linett 2
  288.     :looper
  289.     set %.clr.line $readini -n %_clr.file colors %.clr.num
  290.     set %.clr.clr $gettok(%.clr.line,1,32)
  291.     if (%.clr.clr != -) {
  292.       set %.clr.read $read -nl [ $+ [ %.clr.linett ] ] $_wrapfile(%.clr.got)
  293.       if (%.clr.read == x) set % [ $+ [ %.clr.clr ] ]
  294.       else set % [ $+ [ %.clr.clr ] ] $replace($replace($replace($replace(%.clr.read,K,),B,),U,),R,)
  295.       inc %.clr.linett
  296.     }
  297.     if ($_vi(.clr.num) <= %.clr.max) goto looper
  298.     set %.clr.read $read -nl [ $+ [ %.clr.linett ] ] $_wrapfile(%.clr.got)
  299.     set %col.cust $gettok(%.clr.read,1,32)
  300.     set %col.cdark $gettok(%.clr.read,2,32)
  301.     set %.sbk $gettok(%.clr.read,3,32)
  302.     unset %pp.smod
  303.     rline @Schemes 3 Current scheme: %_sch.name
  304.     aline @Schemes %col.target $+ %_sch.next $+ > %_sch.name
  305.     _schsave %_sch.next %_sch.name
  306.     inc %_sch.next
  307.     _updde
  308.     if ($_isopen(@Sample)) _sample
  309.     if (%.sbk != $colour(back)) {
  310.       window -c @Warning
  311.       window @Warning $_center(500,110) 500 110 @Close %font.quick
  312.       echo $colour(norm) @Warning Warning- This scheme was designed using a $_col2text(%.sbk)  $+ %.sbk $+ (this color) background color. You may have to change your background color (Alt+K for mIRC colors) to view it properly.
  313.     }
  314.   }
  315.   elseif ($1 == 14) {
  316.     if ($2 == $null) _askr _arhelp Nickname to send scheme to?
  317.     ctcpreply $2 P&PCOLORS A $_schsend %_sch.name
  318.   }
  319.   else {
  320.     set %.sbk $_schload($calc($1 - 15))
  321.     unset %pp.smod
  322.     rline @Schemes 3 Current scheme: %_sch.name
  323.     _updde
  324.     if ($_isopen(@Sample)) _sample
  325.     if (%.sbk != $colour(back)) {
  326.       window -c @Warning
  327.       window @Warning $_center(500,110) 500 110 @Close %font.quick
  328.       echo $colour(norm) @Warning Warning- This scheme was designed using a $_col2text(%.sbk)  $+ %.sbk $+ (this color) background color. You may have to change your background color (Alt+K for mIRC colors) to view it properly.
  329.     }
  330.   }
  331. }
  332. _schget {
  333.   set %.sch.num 1
  334.   set %_sch.file $_ppdir $+ styles.ini
  335.   :loopie
  336.   set %.sch.n $readini -n %_sch.file schemen %.sch.num
  337.   if (%.sch.n != $null) { inc %.sch.num | goto loopie }
  338.   writeini %_sch.file schemen %.sch.num $2- | writeini %_sch.file schemec %.sch.num $1
  339.   dispa Color scheme " $+ %col.info1 $+ $2- $+ " saved
  340. }
  341. _schquick {
  342.   set %.ln $sline(@ColorSelect,1).ln
  343.   if (%.ln < 3) return
  344.   set %_sch.quick %_sch.quick $_1620($calc(%.ln - 2))
  345.   set %.nx $_numtok(32,%_sch.quick)
  346.   if (%.nx == 1) rline @ColorSelect 1 Select your secondary color, darker or highlighted (color 2 of 4)
  347.   elseif (%.nx == 2) rline @ColorSelect 1 Select your warning color, for alerts and etc. (color 3 of 4)
  348.   elseif (%.nx == 3) rline @ColorSelect 1 Select the main color for your popup windows (color 4 of 4)
  349.   else {
  350.     window -c @ColorSelect
  351.     set %.bk $colour(back)
  352.     set %.fade0 0 14 12 9 7 4 13 8 8 9 11 11 11 13 15 15
  353.     set %.fade1 14 1 2 2 5 5 2 5 4 3 2 10 2 6 14 14
  354.     set %.fade2 1 14 15.0 15 14.0 12 12.0 9 9.0 8 7.0 7 4.0 13 13.0 8 8.1 4 7.1 3 3.0 11 11.1 10 10.0 11 11.1 6 6.0 15 15.1 14 14
  355.     set %.fade $gettok(%.fade2,$_i(%.bk),46)
  356.     if ($gettok(%.fade,1,32) == 1) set %.fade3 %.fade1
  357.     else set %.fade3 %.fade0
  358.     set %.main $gettok(%_sch.quick,1,32)
  359.     set %.fade %.main $gettok(%.fade3,$_i(%.main),32) %.fade
  360.     set %_sch.quick %_sch.quick $colour(norm) %.bk $+ , $+ $gettok(%_sch.quick,2,32) %.fade
  361.     set %.clr.max $readini -n %_clr.file colors num
  362.     set %.clr.num 1
  363.     :loopah
  364.     set %.clr.line $readini -n %_clr.file colors %.clr.num
  365.     set %.clr.clr $gettok(%.clr.line,1,32)
  366.     if (%.clr.clr != -) {
  367.       set %.clr.tok $gettok(%.clr.line,2,32)
  368.       if (B isin %.clr.tok) { set %.clr.done  | set %.clr.tok $remove(%.clr.tok,B) }
  369.       elseif (U isin %.clr.tok) { set %.clr.done  | set %.clr.tok $remove(%.clr.tok,U) }
  370.       else unset %.clr.done
  371.       set % [ $+ [ %.clr.clr ] ]  $+ $gettok(%_sch.quick,%.clr.tok,32) $+ %.clr.done
  372.     }
  373.     if ($_vi(.clr.num) <= %.clr.max) goto loopah
  374.     set %col.cust -c $+ $remove(%col.custom,,,)
  375.     set %col.cdark -c $+ $remove(%col.custdark,,,)
  376.     set %col.base $remove(%col.base,,,)
  377.     _schsave %_sch.next %_sch.qname
  378.     unset %pp.smod
  379.     rline @Schemes 3 Current scheme: %_sch.name
  380.     aline @Schemes %col.target $+ %_sch.next $+ > %_sch.name
  381.     inc %_sch.next
  382.     _updde
  383.     if ($_isopen(@Sample)) _sample
  384.   }
  385. }
  386. ; -----------------------------------------------------
  387. ; Fonts
  388. ; -----------------------------------------------------
  389. fonts {
  390.   window -c @BasicFont | window -c @FixedFont | window -c @PopupFont
  391.   window -c @BasicSample | window -c @FixedSample | window -c @PopupSample
  392.   window -l @BasicFont $_winpos(35%,0%,0%,67%) /_fontsel @Fonts %font.basic
  393.   window -l @PopupFont $_winpos(35%,0%,33%,34%) /_fontsel @Fonts %font.basic
  394.   window -l @FixedFont $_winpos(35%,0%,66%,0%) /_fontsel @Fonts %font.basic
  395.   window -l @BasicSample $_winpos(0%,65%,0%,67%) @Fonts %font.basic
  396.   window -l @PopupSample $_winpos(0%,65%,33%,34%) @Fonts %font.quick
  397.   window -l -t [ $+ [ $_j(%font.fixtab) ] ] @FixedSample $_winpos(0%,65%,66%,0%) @Fonts %font.basic
  398.   aline @BasicFont Font used for most P&P windows
  399.   aline @BasicFont Currently: %font.basic
  400.   aline @PopupFont Font used for quick popup windows
  401.   aline @PopupFont Currently: %font.quick
  402.   aline @FixedFont Width of tabs in windows
  403.   aline @FixedFont Currnetly: %font.fixtab
  404.   aline @FixedFont (double-click to select option)
  405.   aline @FixedFont %=
  406.   aline @FixedFont Increase size by 5
  407.   aline @FixedFont Decrease size by 5
  408.   aline @FixedFont %=
  409.   aline @FixedFont Increase size by 1
  410.   aline @FixedFont Decrease size by 1
  411.   aline @FixedFont %=
  412.   aline @FixedFont The tab should be wide enough so none of the
  413.   aline @FixedFont preceding text is overwritten, but not so wide
  414.   aline @FixedFont that there is an abundance of extra space.
  415.   aline @FixedSample This is a sample option:    ON
  416.   aline @FixedSample None of this should be cut off:    OFF
  417.   aline @FixedSample Size the extra space to taste:    123
  418.   set %.numm 1
  419.   set %.filee $_ppdir $+ fontopt.txt
  420.   :loop1
  421.   set %.linee $read -l [ $+ [ %.numm ] ] %.filee
  422.   aline @BasicFont %.linee
  423.   aline @PopupFont %.linee
  424.   if ($_vi(.numm) < 8) goto loop1
  425.   set %.filee $_ppdir $+ styles.ini
  426.   set %.numm 1
  427.   :loop3
  428.   set %.linee $readini -n %.filee vfont %.numm
  429.   if (%.linee != $null) { aline @BasicFont %.linee | aline @PopupFont %.linee | inc %.numm | goto loop3 }
  430.   set %.numm 1
  431.   set %.filee $_ppdir $+ fontsamp.txt
  432.   :loop4
  433.   set %.linee $read -l [ $+ [ %.numm ] ] %.filee
  434.   aline @BasicSample %.linee
  435.   aline @PopupSample %.linee
  436.   if ($_vi(.numm) < 6) goto loop4
  437. }
  438. _fredraw {
  439.   set %.wname $1 $+ Font
  440.   rline %.wname 2 Currently: % [ $+ [ $2 ] ]
  441.   set %.wname $1 $+ Sample
  442.   window -c %.wname
  443.   if ($1 == @Basic) set %.wpos $_winpos(0%,65%,0%,67%) 
  444.   elseif ($1 == @Popup) set %.wpos $_winpos(0%,65%,33%,34%) 
  445.   else set %.wpos $_winpos(0%,65%,66%,0%) 
  446.   if ($1 == @Fixed) window -l -t [ $+ [ $_j(%font.fixtab) ] ] @FixedSample $_winpos(0%,65%,66%,0%) @Fonts %font.basic
  447.   else window -l %.wname %.wpos @Fonts % [ $+ [ $2 ] ]
  448.   if ($1 == @Fixed) {
  449.     aline @FixedSample This is a sample option:    ON
  450.     aline @FixedSample None of this should be cut off:    OFF
  451.     aline @FixedSample Size the extra space to taste:    123
  452.     window -b @FixedSample
  453.   }
  454.   else {
  455.     set %.numm 1
  456.     set %.filee $_ppdir $+ fontsamp.txt
  457.     :loop | aline %.wname $read -l [ $+ [ %.numm ] ] %.filee | if ($_vi(.numm) < 6) goto loop
  458.   }
  459. }
  460. _fontsel {
  461.   set %.win $active
  462.   set %.ln $sline(%.win,1).ln
  463.   if (Basic isin %.win) set %.font font.basic
  464.   elseif (Popup isin %.win) set %.font font.quick
  465.   else {
  466.     set %.old %font.fixtab
  467.     if (%.ln == 5) inc %.old 5
  468.     elseif (%.ln == 6) dec %.old 5
  469.     elseif (%.ln == 8) inc %.old
  470.     elseif (%.ln == 9) dec %.old
  471.     else return
  472.     if (%.old > 50) set %.old 50
  473.     elseif (%.old < 5) set %.old 5
  474.     set %font.fixtab %.old
  475.     _fredraw $remove(%.win,Font) font.fixtab
  476.     return
  477.   }
  478.   if ((%.ln < 5) || (%.ln == 7) || (%.ln == 9)) return
  479.   set %.old % [ $+ [ %.font ] ]
  480.   set %.oldsize $_rtok(1,32,%.old)
  481.   if (%.ln < 7) {
  482.     set %.newsize %.oldsize
  483.     if (%.ln == 5) inc %.newsize
  484.     else dec %.newsize
  485.     if ((%.newsize < 4) || (%.newsize > 99)) return
  486.     set % [ $+ [ %.font ] ] $remtok(%.old,%.oldsize,32) %.newsize
  487.     _fredraw $remove(%.win,Font) %.font
  488.     if (Basic isin %.win) _fredraw @Fixed font.fixtab
  489.   }
  490.   elseif (%.ln == 8) {
  491.     if ($1 == $null) _askr _fontsel EXACT name of font? (press Alt+V to get a list of available fonts)
  492.     set % [ $+ [ %.font ] ] $1- %.oldsize
  493.     _fredraw $remove(%.win,Font) %.font
  494.     if (Basic isin %.win) _fredraw @Fixed font.fixtab
  495.   }
  496.   else {
  497.     set % [ $+ [ %.font ] ] $line(%.win,%.ln) %.oldsize
  498.     _fredraw $remove(%.win,Font) %.font
  499.     if (Basic isin %.win) _fredraw @Fixed font.fixtab
  500.   }
  501. }
  502. ; -----------------------------------------------------
  503. ; Display elements
  504. ; -----------------------------------------------------
  505. _sepline {
  506.   set %.ffff $_ppdir $+ styles.ini
  507.   set %.line1 $readini -n %.ffff lineshade $1
  508.   if ($2 isnum) {
  509.     set %.line2 $readini -n %.ffff lineshade o
  510.     set %.line2 $gettok(%.line2,$2,44)
  511.   }
  512.   else set %.line2 $2 $+ $2
  513.   set %.tored $replace($replace(%.line1,o,$left(%.line2,1)),s,$right(%.line2,1))
  514.   if (%col.fade1 == $null) set %.tored $remove(%.tored,A)
  515.   else set %.tored $replace(%.tored,A,%col.fade1)
  516.   if (%col.fade2 == $null) set %.tored $remove(%.tored,B)
  517.   else set %.tored $replace(%.tored,B,%col.fade2)
  518.   if (%col.fade3 == $null) set %.tored $remove(%.tored,C)
  519.   else set %.tored $replace(%.tored,C,%col.fade3)
  520.   if (%col.fade4 == $null) set %.tored $remove(%.tored,D)
  521.   else set %.tored $replace(%.tored,D,%col.fade4)
  522.   if (%col.fade5 == $null) set %.tored $remove(%.tored,E)
  523.   else set %.tored $replace(%.tored,E,%col.fade5)
  524.   return %.tored
  525. }
  526. _logos {
  527.   set %.ffff $_ppdir $+ styles.ini
  528.   if ($1 isnum) set %.logos $readini -n %.ffff logo $1
  529.   else set %.logos $1
  530.   set %.numi 1
  531.   unset %.ret
  532.   :loop
  533.   set %.tok $gettok(%.logos,%.numi,44)
  534.   set %.ret %.ret $2 $+ %col.fade3 $+ $left(%.tok,1) $+ %col.fade2 $+ $mid(%.tok,2,$calc($len(%.tok) - 2)) $+ %col.fade1 $+ $right(%.tok,1) $+ 
  535.   if ($_vi(.numi) < 5) goto loop
  536.   return %.ret $2 $+ $gettok(%.logos,5,44)
  537. }
  538. elements {
  539.   _ele4 !
  540.   window -c @Brackets | window -c @Logos
  541.   window -l @Brackets $_winpos(0%,50%,70%,0%) /_ele2 @Elements %font.basic
  542.   window -l @Logos $_winpos(50%,0%,70%,0%) /_ele3 @Elements %font.basic
  543.   aline @Brackets Double-click to select bracket style
  544.   aline @Brackets Current- %[ $+ example $+ %]
  545.   aline @Brackets $chr(160)
  546.   aline @Logos Double-click to select logo styles
  547.   aline @Logos Current- %@ %@c %@w %@s %!
  548.   aline @Logos $chr(160)
  549.   set %.num 1
  550.   :loop2
  551.   set %.brak $readini -n %.ffff bracket %.num
  552.   aline @Brackets $replace($replace($replace(%.brak,$chr(44),sample text),B,),U,)
  553.   if ($_vi(.num) < 9) goto loop2
  554.   aline @Brackets Custom...
  555.   set %.num 1
  556.   :loop3
  557.   aline @Logos $_logos(%.num)
  558.   aline @Logos $_logos(%.num,)
  559.   if ($_vi(.num) < 6) goto loop3
  560.   aline @Logos Single custom...
  561.   aline @Logos Complex custom...
  562. }
  563. _ele1 {
  564.   set %.ln $sline(@Seperator,1).ln
  565.   if (%.ln == 2) {
  566.     window -c @Seperator
  567.     window -l @Seperator $_winpos(0%,0%,0%,30%) /_ele4 @Elements %font.basic
  568.     aline @Seperator Double-click to select a line style (Current- %pp.lineset $+ )
  569.     aline @Seperator Double-click here to select a shading style
  570.     aline @Seperator $chr(160)
  571.     set %.num 1
  572.     :loop1
  573.     aline @Seperator %.num $+ ) $_sepline(%pp.lineshade,%.num)
  574.     if ($_vi(.num) < 11) goto loop1
  575.     aline @Seperator Custom...
  576.     return
  577.   }
  578.   if (%.ln < 4) return
  579.   set %pp.lineshade $calc(%.ln - 3)
  580.   rline @Seperator 1 Double-click to select a shading style (Current- %pp.lineshade $+ )
  581.   set %= $_sepline(%pp.lineshade,%pp.lineset)
  582. }
  583. _ele4 {
  584.   if ($1 == !) set %.ln 2
  585.   else set %.ln $sline(@Seperator,1).ln
  586.   if (%.ln == 2) {
  587.     window -c @Seperator
  588.     window -l @Seperator $_winpos(0%,0%,0%,30%) /_ele1 @Elements %font.basic
  589.     aline @Seperator Double-click to select a shading style (Current- %pp.lineshade $+ )
  590.     aline @Seperator Double-click here to select a line style
  591.     aline @Seperator $chr(160)
  592.     set %.num 1
  593.     :loop1
  594.     aline @Seperator %.num $+ ) $_sepline(%.num,%pp.lineset)
  595.     if ($_vi(.num) < 16) goto loop1
  596.     return
  597.   }
  598.   if (%.ln < 4) return
  599.   if (%.ln == 14) {
  600.     if ($1 == $null) _askr _ele4 Character to use for line seperator?
  601.     set %pp.lineset $left($1,1)
  602.   }
  603.   else set %pp.lineset $calc(%.ln - 3)
  604.   rline @Seperator 1 Double-click to select a line style (Current- %pp.lineset $+ )
  605.   set %= $_sepline(%pp.lineshade,%pp.lineset)
  606. }
  607. _ele2 {
  608.   set %.ln $sline(@Brackets,1).ln
  609.   if (%.ln < 4) return
  610.   if (%.ln == 12) {
  611.     if ($1 == $null) _askr _ele2 Left bracket? (including any control codes)
  612.     if ($2 == $null) { set %_arhelp _ele2 $1 | _askr _arhelp Right bracket? (including any control codes) }
  613.     set %[ $1 | set %] $2
  614.     goto domid
  615.   }
  616.   set %.ffff $_ppdir $+ styles.ini
  617.   set %.brak $readini -n %.ffff bracket $calc(%.ln - 3)
  618.   set %.brak $replace($replace(%.brak,B,),U,)
  619.   set %[ $gettok(%.brak,1,44)
  620.   set %] $gettok(%.brak,2,44)
  621.   :domid
  622.   set %: 
  623.   if ($calc($count(%[,) % 2) == 1) set %: 
  624.   if ($calc($count(%[,) % 2) == 1) set %: %: $+ 
  625.   if ($calc($count(%[,) % 2) == 1) set %: %: $+ 
  626.   if ( isin %[) {
  627.     set %.tmp a $+ %[
  628.     set %.col $gettok(%.tmp,2,3)
  629.     set %.col $left(%.col,2)
  630.     if (%.col isnum) set %: %: $+  $+ %.col
  631.     else set %: %: $+  $+ $left(%.col,1)
  632.   }
  633.   if ($calc($count(%[,) % 2) != $calc($count(%],) % 2)) set %] %] $+ 
  634.   elseif ($calc($count(%[,) % 2) != $calc($count(%],) % 2)) set %] %] $+ 
  635.   elseif ($calc($count(%[,) % 2) != $calc($count(%],) % 2)) set %] %] $+ 
  636.   elseif (( isin %[) && ( !isin %])) set %] %] $+ 
  637.   rline @Brackets 2 Current- %[ $+ example $+ %]
  638. }
  639. _ele3 {
  640.   set %.ln $sline(@Logos,1).ln
  641.   if (%.ln < 4) return
  642.   if (%.ln == 14) {
  643.     if ($1 == $null) _askr _ele3 Custom logo to show before all P&P lines? (3 characters recommended, no spaces)
  644.     if ($left($1,1) == ) { set %.logos $_rchop(1,$1) | set %.char  }
  645.     else { set %.logos $1 | unset %.char }
  646.     set %pp.logoset %.logos $+ , $+ %.logos $+ , $+ %.logos $+ , $+ %.logos $+ , $+ %.logos %.char
  647.   }
  648.   elseif (%.ln == 15) {
  649.     set %_arhelp _ele3 $1-
  650.     if ($1 == $null) _askr _ele3 Basic logo for most P&P events? (logo 1 of 5, don't use spaces)
  651.     elseif ($2 == $null) _askr _arhelp Logo for CTCP events? (logo 2 of 5, don't use spaces)
  652.     elseif ($3 == $null) _askr _arhelp Logo for whois replies/IRCop wallops? (logo 3 of 5, don't use spaces)
  653.     elseif ($4 == $null) _askr _arhelp Logo for server notices? (logo 4 of 5, don't use spaces)
  654.     elseif ($5 == $null) _askr _arhelp Logo for warnings/alerts? (logo 5 of 5, don't use spaces)
  655.     set %.logos $_s2c($1-)
  656.     if ($left($1,1) == ) { set %.rep , | set %pp.logoset $replace($_rchop(%.logos),%.rep,$chr(44))  }
  657.     else set %pp.logoset %.logos
  658.   }
  659.   else {
  660.     set %pp.logoset $calc(%.ln - 3)
  661.     if ($calc(%pp.logoset % 2) == 0) set %pp.logoset $int($calc((%pp.logoset + 1) / 2)) 
  662.     else set %pp.logoset $calc((%pp.logoset + 1) / 2)
  663.   }
  664.   set %.logos $_logos(%pp.logoset)
  665.   rline @Logos 2 Current- %.logos
  666.   set %@ $gettok(%.logos,1,32)
  667.   set %@c $gettok(%.logos,2,32)
  668.   set %@w $gettok(%.logos,3,32)
  669.   set %@s $gettok(%.logos,4,32)
  670.   set %! $gettok(%.logos,5,32)
  671. }
  672. _updde {
  673.   set %.logos $_logos(%pp.logoset)
  674.   set %@ $gettok(%.logos,1,32)
  675.   set %@c $gettok(%.logos,2,32)
  676.   set %@w $gettok(%.logos,3,32)
  677.   set %@s $gettok(%.logos,4,32)
  678.   set %! $gettok(%.logos,5,32)
  679.   set %= $_sepline(%pp.lineshade,%pp.lineset)
  680. }
  681.